home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / card_28972.txt < prev    next >
Text File  |  1991-04-30  |  2KB  |  83 lines
  1. -- card: 28972 from stack: in.3r
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3837
  5. -- name: FileLength
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=192 top=234 right=283 bottom=268
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 27056 / 27056
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Try me
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the optionkey is down then edit script of me
  23.   put "Please select a text file..."
  24.   put filename("TEXT") into temp
  25.   hide message
  26.   if temp is empty then exit mouseup
  27.   put fileLength(temp)
  28. end mouseUp
  29.  
  30.  
  31.  
  32. -- part contents for background part 5
  33. ----- text -----
  34. FileLength
  35.  
  36. -- part contents for background part 6
  37. ----- text -----
  38. FileLength XFCN returns the size of the data fork of a file in bytes.
  39.  
  40. Anyway, as you can probably guess by it's name, FileLength gets the length of any file whose name you pass to it. I needed this for a stack I'm developing that will be reading text files.
  41.  
  42. If FileLength encounters an error of some sort 
  43. (can't find the file, or the file is aready open), the result will be zero. If for some strange reason someone tries to open a non-text file, FileLength
  44. will work, but will only return the length of the data fork. So opening a program, for example, will probably return a result of zero.
  45.  
  46.  
  47. "FileLength" is absolutely FREE and was developed with the LightSpeed Pascal Compiler. Source available on request (via GEnie E-Mail or SASE):
  48.  
  49. Jeff Fischer
  50. 2246 Olivine Dr.
  51. Carbon Canyon, CA 91709
  52. GEnie: JFISCHER
  53.  
  54. ΓÇóΓÇóNote from Steve Drazga, Editor DevStack
  55. I would like to publicly thank Jeff for taking the time to send his contribution to the Developer Stack.
  56.  
  57.  
  58.  
  59.  
  60.  
  61. -- part contents for background part 7
  62. ----- text -----
  63. Syntax:
  64.  
  65. FileLength(<filePathName>)
  66.  
  67. Returns the length (in bytes) of the data fork of a file.  If an error occurs it will return 0.
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77. -- part contents for background part 10
  78. ----- text -----
  79. 23
  80.  
  81. -- part contents for background part 27
  82. ----- text -----
  83. XFCN